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AVALANCH 



NIVEL DO JOGO 



ATRASO DAS COBRAS 



MOVIMENTO DAS LINGUAS 



A COBRA ESTA SUBMERSA? 




As cobras ainda nao constituem ameaga: 
podem ser vistas dentro dos buracos, 
mas estao sempre quietas. Agora vamos 
dar-lhes movimento, complicando 
urn pouco mais a vida do pobre Willie. 



Nossa aventura esta bem movimen- 
tada: Willie anda e salta, as pedras ro- 



lam, OS pdssaros voam. As cobras, po- 
rem, permanecem totalinente im^veis 
em seus buracos. Esta na hora de Ihes 
dar um pouco de vida. 



A rotina a seguir ati^a as cobras, 
fazendo-as sair de sua inatividade. 

10 REM org 59B23 



20 BEM ank Id a, {57344) 

30 REM cp 2 

40 BEM jr ncsko 

50 REM ret 

60 REM fiko Id ix,S7350 

70 REM Id hl,42S 

80 REM call skm 

90 REM Id hi. 369 
100 REM call akm 
110 REM Id hl,2B2 
120 REM call akm 
130 REM ret 



iiiiiiiiinnHi 


140 EEM 


9kiD puah hi 


150 REM 


Id de. (57354) 


160 REM 


abc hl.de 


170 BEM 


pop hi 


190 HEM 


jr cans 


190 REM 


ret 


200 BEM 


ana Id a, (lx+0) 


210 BEK 


inc a 


220 REM 


rea 4,3 


230 REM 


Id (ix-t-0) ,a 


240 REM 


inc ix 


250 REM 


cp 7 


260 REM 


jr nc.Bco 


270 REM 


ret 


280 REM 


SCO Id be, 57224 


290 REM 


Id d,43 


300 REM 


cp 15 


310 REM 


jr nz.ste 


320 BEM 


Id be. 15616 


330 REM 


Id d,45 


340 REM 


ate Id a,d 


350 REM 


call 582i7 


360 PEN 


ret 
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A primeixa tarefa da rotina consiste 
em verificar se as cobras devem entrar 
em a?ao. Para isso, o valor do nivel do 
jogq, armazenado em 57344, e carrega- 
do no acumulador e comparado com 2. 
Essa compara^ao e feita por meio de 
uma subtrai^o cujo resultado nao arma- 
zenamos. Se compararmos 2 com um 
niimero menor, teremos um resto. A ba- 
liza carry sera entao ajustada com 1 e 
o processador retornara, porque as co- 
bras nao sao necess^rias. 

Se a baiiza carry nao foi ajustada, a 
instrugao jr iic,sko pula a instru^ao re(. 
Voce estard no terceiro ou quarto nivel 
do jogo (valor 2 ou 3) e as cobras de- 
vem ser aticadas. 



AS COBflAS AMEApAM 



A posi^ao de memoria 57350 carre- 
ga o primeiro dos atrasos das cobras, 
que indicam quando elas devem mexer 
a lingua. IX i carregado com esse ende- 
rego, e HL, com 425, a posi^ao da pri- 
meira lingua de cobra. A rotina skm, 
que executa o movimento, e chamada. 

A posipao da lingua da proxima co- 
bra e carregada em HL, e skm volta a ser 
chamada. Em seguida, a posi(;ao da lin- 
gua da terceira cobra 6 carregada em HL 
e skm € chamada mais uma vez. 

Quando todas as Unguas esdverem se 
mexendo, a rotina retorna. 



SE A MARE SOBE. 



Quando a rotina skm 6 chamada, as 
posi(;oes das Ifnguas sao colocadas na pi- 
Iha para armazenaraento tempordrio. A 
posifao do mar em 57354 i colocada no 
par DE. Neste ponto do programa, pre- 



cisamos verificar a altura da riiare. Se 
a cobra estiver submersa, a parte da ro- 
tina que movimenta sua lingua pode ser 
pula da. 

A seguir, a posigao do mar no par 
DE d subtraida da posigao da lingua em 
HL. Se nao houver resto, a posifao do 
mar se encontra acima da posi^ao da 
lingua da cobra na tela. Nesse caso, a 
instrugao jr c,sns nao tern efeito e o pro- 
cessador retorna. Mas, se houver resto, 
ou seja, se a posi^ao do mar estiver abai- 
xo da posipao da lingua na tela, a ins- 
tru?ao jr c.sns faz com que o proces- 
sador salte a instrufio ret e continue 
a rotina. 



estA na hora de mexer? 



O atraso da cobra i carregado da po- 
skSlo apontada por IX para o acumula- 
dor, onde € incrementado. O bit 4 ^ apa- 
gado para evitar que o atraso se tome 
maior que 15. O r^ultado dessa opera- 
fao € armazenado de volta na posigao 
indicada por IX. Esse apontador i en- 
tao incrementado para indicar o atraso 
da cobra seguinte. Seu valor i compa- 
rado com o conteiido do acumulador 
pela instru^ao cp 7, Se o atraso dessa co- 
bra for maior ou igual a 7, jr iic,sno 
manda o processador para a rotina que 
imprirae a lingua. Se o valor for menor 
que 7, a baiiza carry e ajustada com 1, 
a instrugao nao tern efeiio e o processa- 
dor retorna. 

Cada vez que essa rotina i chamada, 
um atraso diferente da cobra e encon- 
trado nos endere?os 57350, 57351 e 
57352, pois o apontador IX e incremen- 
tado entre cada chamada que se faz k 
rotina skm. A lingua da cobra fica para 
fora oito ciclos, e nao aparece nos otto 
ciclos seguintes. 



IMPRESSAO 



Chegamos, finalmente, k retina en- 
carregada de imprimir ou apagar a lin- 
gua da cobra na tela. O par de registros 
BC 6 carregado com 57224, os dados pa- 
ra a lingua da cobra. D 6 ajustado com 
43, a cor da figura. O atraso da cobra 
em A ^ comparado com 15. 

Se atraso nao tiver chegado a 15, 
a instru^ao jr nz leva o processador pa- 
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ra ste. Se for igual a esse valor, vocS pre- 
cisard apagar a lingua, para que ela nao 
apaieija nos proximos oito ciclos. BC e 
carregado com 15616, o enderefo dos 
dados de um espa?© vazlo, e o rcgistro 
D e carregado com 45, o c6digo da cor 
do ceu. 

QuaJquer que seja o valor do atraso 
da cobra (neste ponto da rotina, ele e 
sempre maior do que sete), o processa- 
dor encontra a instrugao Id a,d. Depois 
que ela carrega a cor apropriada em A, 



a rotina print, em 58217, e chamada. 
Com isso, imprimimos a lingua — ou 
apagamos a que existia — para fora da 
boca de uma das cobras, A seguir, o 
processador retorna. 



Esta rotina movimenta as cobras, 
acrescentando a(;ao ao jogo. 

10 ORG 20856 



20 3NK LDA 18238 
30 CMPA 12 
40 BHS SKO 

50 RTS 

60 SKO LDY tl8255 

70 LDX #5095 

80 J5R SKM 

90 LDX #4591 

100 JSR SKM 

110 LDX #3833 

120 JSR SKM 

130 RTS 

140 SKM PSH3 X 
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PflOGRAMAS LONGOS: MELHORE 
A VELOCIDADE DE MONTAGEM 

Como o leitor deve ter notado, apre- 
sentamos o programa Avalanche em 
pequenos segmentos functonais, que 
podem ser testados separadamente. 
Essa t^cnica de construpio de progrs- 
mas, chamada de desenvolvimento 
modular, h muito util para qualquer ti- 
po de programa, pois agiliza o proces- 
so de montagem e facilita enormemen- 
te OS testes de execuqao. Para a pro- 
grgmaplo complexa em linguagem de 
mdquina, o uso dessa t^cnica € essen- 
cial, devido d dificuldada de se docu- 
mentar internamente — isto 6, na pro- 
pria listagem do programa — o c6digo 
em Assembler. 

Os prof isstonais que criam os sof is- 
ticados videogames que vemos em f li- 
peramas, por exempio, dominam per- 
feitamente a t6cnica de modularizagao, 
Na realidade, eles dispoem de progra- 
mas Assembler poderosfssimos, capa- 
zes de representar uma bJblioteca de 
rotinas e ferramentas de programapao 
que facititam muito a implementaqao 
dos recursos normalmente usados em 
videogames. 

Infelizmente, os Assembler que W- 
PUTapresentou para os diferentes mi- 
cros sao muito lentos. Se vocS quiser 
melhorar a velocidada de montagem, 
divida um programa mais longo em 
segmentos menores e compile-os se- 
paradamente. Mao se esquega, porim, 
de calcular o enderego de origem para 
cada segmento e inclul-lo em um co- 
ma ndo org ou equivalente, no comego 
de cada segmertto. 



150 


LDX 18247 


160 


LEAX 31, X 


170 


CMPX ,S 


180 


PULS X 


190 


BHI SNS 


200 


RTS 


210 


SNS LDA ,y 


220 


INCh 


230 


ANDA tSF 


240 


STA ,¥+ 


250 


CMPA 17 


260 


BHS SCO 


270 


RTS 


280 


SCO LDU *ie062 


290 


CMPA 115 


300 


BNE STE 


310 


LDU #1536 


320 


STE LEAX -256, X 


330 


JSR CHARPR 


340 


RTS 


350 


CHARPR EQU 19402 



A primeira tarefa da rotina i verifi- 
car se as cobras devem entrar em a?ao. 
Para isso, o valor do nivel do jogo, ar- 
mazenado em 18238, 6 carregado no 
acumulador e comparado com 2. 

Se voce estd no ni'vel tres ou quatro 
— ou seja, se o valor ^ 2 ou 3 — , as co- 
bras serao necessirias. Nesse caso, a ins- 
tru?ao BHS faz o processador pular o 
RTS, seguindo a rotina. 



AS COBRAS AMEACAM 



Y € carregado com o enderego do 
atraso da primeira cobra. Esta i a va- 
ridvel incumbida de interrompcr ou co- 
me^ar o seu movimento. Os atrasos da 
segunda e da terceira cobras estao logo 
em seguida na mem6ria. 

X ^ carregado com 5095, a posigao 
na tela do primeiro buraco, e o proces- 
sador vai para a rotina SKM. 

Essa rotina ati^a a primeira cobra e 
incrementa o conteiido de Y antes de re- 
tornar. Assim, quando o processador 
salta para fazer com que a segunda e a 
terceira cobras se movimentem, apeuas 
as posii;6es do segundo e do terceiro bu- 
racos precisam ser carregadas em X. Y 
e incrementado automaticamente, apon- 
tando OS atrasos das tres cobras, Quan- 
do tiver passado por todas elas, o pro- 
cessador retorna. 



MARE ALTA 



A primeira coisa que o processador 
faz ao entrar na rotina SKM t cofocar 
na pilha, para armazenamento tempo- 
rdrio, a posigao da cobra na tela. 

O registrador X t carregado com o 
conteiido de 18247, a posi?ao do mar. 
Esse valor e soraado com 31, para que 
o apontador de tela se mova para o can- 
to direito da tela. X e entao comparado 
com a posigao do buraco da cobra, que 
estd na pilha de mdquina, atrav^s da ins- 
trugao CMPX ,S. A posigao da cobra 
6 recuperada da pilha, voltando para o 
registrador X. 

Como isso nao afeta nenhuma das 
balizas, a instrugao BHI ainda se refere 
a operagao CMPX ,S- Assim, se o mar 
esti acima do buraco — ou seja, se a po- 
sigao do mar na tela nao € maior do que 
a posigao do buraco que estava na pi- 
lha ^, o salto nao ocorre, e o processa- 
dor retorna. 

Caso o mar nao tenha encobertoo 
buraco — isto e, se a posigao do mar na 
tela ^ maior do que a posi?ao do bura- 
co — , processador pula a instrugao 
RTS, e dd continuidade h rotina que ati- 
ca as cobras. 



MEXER OU NAO MEXER 



A e carregado com o conteudo do 
atraso da cobra que estd apontado no 
registrador Y. Esse valor i entao incre- 
mentado e a operagao AND e feita com 
$F, para ajustd-lo com toda vez que 
ultrapassar o valor 15, 

O resultado t armazenado de volta 
no enderego apontado por Y. Esse re- 
gistrador e entao incrementado para 
apontar o atraso da prdxima cobra. 

O atraso da cobra que ainda estd em 
A e comparado com 7, Se for maior ou 
igual, o processador vai para a rotina de 
impressao da lingua; caso contrario, o 
processador retorna. 



OBOTE 



Ao entrar na rotina SCO, o proces- 
sador carrega o apontador da pilha do 
usudrio com 18062, o enderego dos da- 
dos para a lingua da cobra. 

A — que ainda contem o atraso da 
cobra que foi incrementado — ^ com- 
parado com 15. Seele nao foi incremen- 
tado atd esse valor, o processador pula 
para as instrugoes de impressao. Mas, 
se j^ chegou a 15, U e carregado com 
1536, o enderego da parte de ceu no can- 
to superior esquerdo da tela. 

Seguindo adiante, X 6 subtraido de 
256, fazendo o apontador de tela se mo- 
ver um caractere para cima do buraco 
da cobra. Esta € a posigao da lingua. 

Se o atraso da cobra estiver entre 7 
e 14, a rotina CHARPR imprimiri a lin- 
gua nessa posigao ao ser chamada. Mas, 
se o atraso tiver atingido o valor 15, a 
lingua serd apagada. 

A lingua permanecerd invisivel, isto 
e, nao sera impressa, at^ que o atraso 
chegue novamente a 7. 



A rotina apresentada a seguir atiga as 
cobras que ate agora permaneciam quie- 
tas em seus buracos. 



10 


org 55564 


20 


Id a. (-5228) 


30 


cp 2 


40 


jr nc,flk 


50 


ret 


60 


ak Id be, -5198 


70 


Id hi, 425 


80 


call sm 


90 


Id hi, 369 


100 


call Bsi 


iio 


Id hi, 282 


120 


call an 


130 


ret 


140 


en puBh hi 


150 


Id de, (-5212) 



l^J^Qgjgfjg^QUtNA 4^i 



160 


abc hl.de 


170 


pop hi 


180 


jr can 


190 


ret 


200 


an Id a, (be) 


210 


inc a 


220 


res 4, a 


230 


Id (be), a 


240 


inc be 


250 


cp 7 


260 


jr nc,8c 


270 


ret 


280 


sc Id de. (62407) 


290 


add hi ,de 


300 


cp IS 


310 


Id b,36 


320 


jr nz,Bt 


330 


Id b,2S5 


340 


St Id a.b 


350 


call 77 


360 


ret 


370 


end 



A primeira tarefa da rotina consiste 
em verificar se as cobras devem entrar 
em a^ao no nivel atual do jogo. Para is- 
so, valor do nivel, - 5228, ^ carrega- 
do no acumulador e comparado com 2. 
Se voce esti no terceiro ou no quarto nf- 
vel — ou seja, se o valor ^ 2 ou 3 — as 
cobras estao nos buracos e devemos 
ati^d-las. 

A compara^ao e feita por meio de 
uma subtra^ao cujo resultado nao arma- 
zenamos. Se compararmos 2 com um 
ndmero menor, teremos um resto e a ba- 
liza carry passar^ a center 1 , Nesse ca- 
se, o processador retornari, porque as 
cobras nao sac necessdrias. 

Caso a baliza carry n3o tenha sido 
afetada, a tnstru^ao Jr tiCtSk pula a ins- 
tru^io ret, porque as cobras estao pre- 
sentes neste nfvel. 



AS COBRAS AMEACAM 



O endereijo de memdria - 5198 con- 
t^m o primciro dos chamados atrasos 
das cobras, que indicam quando das de- 
vem mostrar sua lingua. O par BC 6 car- 
regado com esse enderego, e HL, com 
425, a posi^ao da lingua da primeira co- 
bra. A rotina sm, encarregada de pro- 
mover o movimento, e chamada. 

A posifio da lingua da prdxima co- 
bra i carregada em HL, e sm volta a ser 
chamada. Em seguida, a posi^ao da lin- 
gua da terceira cobra t carregada em 
HL, e sm e chamada mais uma vez. 

Depois de movimentar todas as lin- 
guas, a rotina retoma. 



MARE ALTA 



Quando a rotina sm i chamada, a po- 
si^io da lingua que est^ em HL 6 colo- 




cada na pilha para armazenamento tem- 
pordrio. A posicio do mar cm —5212 
€ colocada no par DE. Neste ponto do 
programa, precisamos verificar se a co- 
bra se afogou com a subida da mar^. 
Em caso afirmativo, ela nao precisa me- 
xer a lingua — assim, a parte da rotina 
que faz isso pode ser pulada. 

Para essa verifica^ao, a posifao do 
mar no par DE € subtraida da posi^ao 
da lingua em HL. Se nao houver resto 
— ou seja, se a posicao do mar estiver 
acima da posigao da lingua da cobra 
na tela — , a iastrugao jr c,sii nao tem 
efeito e o processador retorna. Mas, se 
houver resto, a posigao do mar esti. 
abaixo da posigao da lingua na tela. A 
instruf ao jr c,sn faz, entao, o proces- 
sador saltar a instru9ao ret e continuar 
a rotina. 



ESTA NA HORA DE MEXER? 



O atraso da cobra d carregado da po- 
sicao apontada por BC para o acumu- 
lador, onde e incrementado. O bit 4 
tamb^m & Incrementado para evitar que 
atraso setorne maior que 15. O resul- 
tado dessa opera^ao e armazenado de 
volta na posicao apontada por BC. 

O par de registros BC 6 incrementa- 
do para apontar o atraso da cobra se- 
guinte, A instruflo cp 7 compara esse 
valor com o conteOdo do acumulador, 
e a instrugao jr nc.sc manda o proces- 
sador para a rotina que imprime a b'n- 
gua, se o atraso da cobra for maior ou 
igual a 7. Caso o valor seja inferior a 
7, a baliza i ajustada com 1, a instru 
cio de desvio nao tem efeito e o proces- 
sador retorna. 



Ao ser chamada, essa rotina sempre 
encontra um atraso diferente nos ende 
regos -5198. -5199 e -5220, jA que 
o apontador BC i incrementado entre 
cada acesso a sm. A lingua da cobra fi- 
ca para fora oito ciclos, nao aparecen- 
do nos oito seguintes. 



tnHPRESSAO 



Chegamos, finalmente, k rotina que 
imprime ou apaga a lingua da cobra na 
tela. O enderef iniciaJ da Tabela de No- 
mes da VRAM 6 carregado em DE e so- 
mado a HL, que contem a posigao da 
h'ngua. Esse par de registros passa en- 
tao a conter o endere?o correspondente 
k posicSo da lingua na TN. 

O atraso da cobra que ainda esti no 
acumulador € comparado com 15. O re- 
gistro B 6 carregado com 36, o cddigo 
do padrao da lingua. Se o valor do atra- 
so nao for 15, a instrugao jr nz,st leva 
o processador para st, pulando a instru- 
(jao Ed b,255. Caso contrario, a lingua 
deve ser apagada para que nao apareca 
nos pr6ximos oito ciclos; o desvio nao 
ocorre e 255, o c6digo do padrao de ecu, 
^ colocado em B. 

Neste ponto do programs, o valor do 
atraso da cobra seri sempre superior a 
7. O processador encontra a instrucao 
Id a,b, que transfere o c6digo do padrao 
apropriado de B para A. A rotina 77 da 
ROM, que coloca o c6digo que esta em 
A na posicao da TN apontada por HL, 
i chamada. Com isso, imprimimos a lin- 
gua — ou apagamos a que existia — pa- 
ra fora da boca da cobra. A seguir, o 
processador retoma ao la^o principal do 
jogo. 



©SBSTIMA 
©PE^OONAL 



Sem sistema operacional, serta 
dificil trabalhar com o computador. 
Veja de que modo f unciona esse 
importante componente do seu micro e 
aprenda a fazer dele um aliado. 



Todos OS coraputadores trabalham e 
entendem apenas uma linguagem: o c6- 
digo de m^qutna, que 6 representado in- 
ternamente por pequenas variafoes bl- 
ndrias de voltagem. Ele pode ser expres- 
so por um conjunto de letras e niime- 
ros, o que facilita sua compreensao. ou 
por numeros binarios, menos familiares 
ao usudrio. De uma forma ou de outra, 
essa linguagem e considerada pouco 



acessivel por muitas pcssoas. O que tor- 
na mais simples a comunicapao com o 
operador i o Sistema Operacional do 
computador (SO), um conjunto de ro- 
tinas em c6digo de mdquina que contro- 
1am todas as fun<;6es da m^quina. Seja 
qual for a linguagem empregada, BA- 
SIC ou outra qualquer, essas rotinas se- 
rao sempre utilizadas para controlar as 
diversas fungoes do computador. 



Conhecer o funcionamento do SO 
nao d essencial para o usuirio, porem 
amplia bastante suas alternativas de pro- 
grama?ao- O uso de fun^oes iniernas do 
SO possibilita a obten?ao de melhores 
resultados nao s6 quanto a velocidade. 
mas, tambem, quanto k qualidade ge- 
ral do programa. 

Dentro dos limites impostos por ca- 
da mSquina, este artigo procura mostrar 
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algumas aplicacoes liteis para as rotinas 
e varidveis proprias de cada sistema ope- 
racional . 



QUE E SISTEMA OPERACiONAL 



O SO e apenas um tipo sofisticado de 
programa — escrito em c6digo de rad- 
quina — que permite ao micro pro ces- 




sador existente dentro da m^quina res- 
ponder aos comandos bdsicos de opera- 
9ao, Ele controla a comunicatao da md- 
quina com o mundo exterior — o tecla- 
do, a tela, o alto-falante e outras por- 
tas de entrada e saida. 

O SO tern ainda a funcao de assegu- 
rar que a memdria seja utilizada de for- 
ma eficiente pelo usudrio e pelo inter- 
pretador BASIC- Assim, quando liga- 
mos o computador, ele ativa v^ias de 
suas rotinas da ROM para acertar os va- 
lores inictats de varidveis e apontadores 
e, em seguida, a visa que esta pronto a 
aceitar comandos. 

Em todos OS microcomputadores 
abordados em INPUT, o SO ^ respon- 
sdvel pela interpreta?ao dos comandos 
em BASIC, contudo ele pode tambem 
lidar com outros tipos de linguagem, 

Na maior parte do tempo, o traba- 
Iho do SO consiste em verificar e modi- 
ficar OS valores de determinadas varid- 
veis e apontadores especiais. E impor- 
tante, por exemplo, que o SO conhe^a 
o enderefo exato tanto do ini'cio como 
do fim de um programa em BASIC. Se 
programa for modificado, seu tama- 
nho tambem mudard, e esses valores 
precisarao ser atualizados. 

O mesmo se aplica ao processo de 
aloca^ao e manuten^ao de espa^o para 
as varidveis, particularmente as varidveis 
indexadas, ou matrizes. Quando dimen- 
sionamos uraa variave! desse tipo, um 
espago deve ser reservado — e, quando 
a varidvel nao for mais necessaria, ele 
deve ser eliminado. 

fi essencial que o SO utilize racional- 
mente a memoria, pois, caso contrdrio, 
um programa longo ou algumas varid- 
veis mais compridas logo esgotaria a 
quantidade de espa^o disponfvel. Essa 
administrafao da memdria e chamada 
de housekeeping — que poden'amos tra- 
duzir livremente por "cuidar da casa". 
Uma boa "economia dom^stica" € in- 
dispensdvel para que o computador fun- 
cione eficientemente. 

O SO contdm ainda uma serie de ro- 
tinas de software montadas de modo 
que tanto o usudrio quanto o pr6prio 
SO possam utilizd-las com facilidade. A 
maioria delas nao i de interesse para o 
programador em BASIC, pois vdrios co- 
mandos dessa linguagem se encarregam 



da execucio das mesmas tarefas, cha- 
mando as rotinas apropriadas. Um bom 
exemplo i o comando INPUT, que usa 
uma s^rie de sub-rotinas do SO, tais co- 
mo sele^So e leitura da porta de entra- 
da, varredura do teclado, uso e transfe- 
rencia de buffer etc. 

Outro exemplo interessante e 
CLEAR. Esse comando forca o SO a 
executar todas as rotinas necessdrias d 
libera?ao da mem6ria RAM disponivel 
para o usudrio, destruindo todas as va- 
ridveis previamente existentes. 



TRABALHO SOB ENCOMENDA 



Sempre que digitamos um comando, 
o SO seleciona e coloca em a^ao uma 
das rotinas de seu vasto acervo. Supo- 
nhamos que voce tecle a letra A: o SO 
devera instruir o processador a imprimir 
o caractere na tela, cabendo-lhe tambem 
detectar a tecla que foi pressionada. A 
forma como eie faz isso varia de com- 
putador para computador. Em certas 
mdquinas, o SO "varre" periodicamen- 
te o teclado para verificar se alguma te- 
cla foi pressionada. Em outras, seu fun- 
cionamento normal c interrompido sem- 
pre que se pressiona uma tecla, a qual 
i identificada, em seguida, por meio de 
uma varredura. 

Para responder adequadamente k 
pressao da tecla, o SO aciona a sub- 
rotina que manda o caractere correspon- 
dente k tela. Sua execucao, assim como 
a de outras rotinas em codigo de maqui- 
na, i muito rapida. Se pressionarmos a 
tecla < ENTER > ou a tecla < RE- 
TURN > , o SO ativard uma rotina que 
promove a mudan^a de linba na tela 
{new line). 



INTERPRETADOR BASIC 



Quando executamos um programa 
codificado em uma linguagem como o 
BASIC, as instrucoes que estao na me- 
moria sao interpretadas, ou seja, tradu- 
zidas para os codigos que o computador 
pode entender. Esses cddigos modificam 
OS registradores de modo que as rotinas 
do SO possam ser chamadas adequada- 
mente. Assim, as mesmas rotinas que 
possibilitam a execucao de comandos 



entrados pelo tectado permitem ao SO 
a execugao de um programa BASIC. 

Mas por que o BASIC e tao lento, jd 
que utiliza rotinas em codigo, que sao 
rdpidas? Acontece que a Mnguagem de- 
ve ser interpretada a partir de palavras- 
chave — como PRINT — e de outros 
simbolos, antes que essas rotinas inter- 
nas possain ser executadas. Como a tra- 
dupao do BASIC e demorada, progra- 
mas que exigem rapidez, como os de vi- 
deogame, por exemplo, sao escritos di- 
retamente em linguagem de mdquina, 

O tempo que se leva para escrever um 
programa em codigo de mdquina e, em 
media, dez vezes maicr do que o gasto 
em um programa BASIC. A velocidade 
de execugao do mesmo, contudo, che- 
ga a ser cinqiienia vezes maior. Assim, 
a nao ser que a rapidez de execugao se- 
ja muito importante, a maioria das pes- 
soas prefere utilizar o BASIC, dada a fa- 
cilidade de programapao. 



ACESSO OIRETO AO SO 



A possibilidade de ter acesso direto 
ao SO, sem passar pelo interpretador, 
seria a solu?ao ideal para quern prefere 
as facilidades do BASIC, mas, por ou- 
tro lado, nao quer abrir mao da veloci- 
dade. Nem todas as mdquinas, porem, 
oferecem essa alternativa. 

No TRS-80 e no TRS-Color, por 
exemplo. o SO faz parte do interpreta- 
dor de dezesseis Kbytes — o Microsoft 
BASIC. No MSX, alem de um conjun- 
to de rotinas bisicas, chamado BIOS 
{BASIC Input/Output System), o SO in- 
dui tambdm o interpretador. Os micros 
da linha Sinclair, como o ZX-81 e o Spec- 
trum, sao ainda mais restritivos, uma 
vez que nao permitem acesso aos regis- 
tradores intemos diretamente do BASIC 
(o que e essencial para que se possa SiC- 
lecionar as rotinas existentes no SO). 

Seja qual for o microcomputador e 
o Lipo de acesso que oferece ao SO, sem- 
pre 6 possivel contornar diversos proble- 
mas — inclusive a diminuicao do tama- 
nho das rotinas em codigo — por meio 
de alguns truques. 



VARlAVEIS DO SISTEMA 



Os usudrios do Spectrum podem uti- 
lizar as rotinas do SO atraves do coman- 
do USR. que tamb^m serve para execu- 
tar rotinas em codigo de maquina colo- 
cadas temporariamente na BLAM. Ten- 
te usar, por exemplo, o comando dire- 
to RANDOM USR : ele provoca um 
reset geral na mAquina (reinicializa?ao). 



Para programas em BASIC, hd a alter- 
nativa de se modificar determinadas va- 
riaveis por meio de comandos POKE. 

POKE 23561, seguido de um nume- 
ro entre 1 e 255, altera o lapso de tem- 
po que antecede a ativacao da auto- 
repetigao das teclas. O valor normal e 
dado por um POKE 23561,35. De mo- 
do analogo, POKE 23562,5, que define 
o valor normal do periodo que decorre 
entre duas auto-repetigoes sucessivas, 
tambem pode ser modificado. Tal recur- 
so 6 ijtil em jogos, ou qualquer outro ti- 
po de programa que exija respostas rd- 
pidas do usudrio, via teclado. 

As positjoes 23606 e 23607 contem o 
enderego dos padr5es de pontos dos ca- 
racteres. Se usarmos POKE 23606,8 
(byte menos significativo), o apontador 
serd movido um caractere para cima, na 
tabela. Assim, qualquer letra que digi- 
tarmos aparecer^ na tela como o carac- 
tere seguinte do c6digo ASCII. Tente di- 
gitar esse POKE seguido de 1, 2, 3, 4. 
Note que este ^ um metodo simples de 
"criptografar" listagens em BASIC, de- 
sencorajando curiosos que tentem le-las. 
Se, em vez do byte menos significativo 
voce recorrer ao mais significativo — 
POKE 23607,0 — , o apontador ser^ di- 
rigido para o comedo da memoria 
ROM, tornando os caracteres absoluta- 
mente ininteligiveis. 

A posigao de memdiria 23658 possi- 
bilita alterar o estado da tecla <CAPS 
LOCK > durante a execugao de um pro- 
grama. POKE 23658,0 muda os carac- 
teres de maiusculos para raimisculos; 
POKE 23658,8 admite s6 maiusculos. 

O comando PLOT permite especifi- 
car uma posigao absoluta da tela, en- 
quanto DRAW se refere de forma rela- 
tiva h posigao corrente do cursor grafi- 
co. Se voce precisar de um DRAW ab- 
solute, podera consegui-lo atraves das 
posigoes de mem6ria 23677 e 23678. Pa- 
ra verificar seu efeito, digite PLOT 
128,85. Esse comando colocara um pon- 
to no centro da tela. Suponhamos que 
voc6 queira tragar uma linha que v4 des- 
te ponto ate o canto superior direito da 
tela, cuja posigao absoluta i (255,175), 
DRAW 255,175 indicaria um ponto fo- 
ra da tela, mas DRAW 255-PEEK 
23677, 175-PEEK 23678 Ihe dar^ o resul- 
tado desejado, Ao subtrair PEEK 23677 
da coordenada X e PEEK 23678 da 
coordenada Y, estamos, na verdade, 
efetuando uma operagao para obter as 
coordenadas relativas do comando 
DRAW. 

Um outro exemplo de utilizag3o das 
rotinas do SO por meio de um coman- 
do BASIC e dado pela simulagao de um 
rel6gio. No Spectrum, o contador de li- 
nhas de video ocupa as posigoes 23672, 



23673, 23674. Se colocarmos nelas, 
usando o comando POKE, o contador 
serd zerado. Depois disso, sua atualiza- 
gao serd feita automaticamente atraves 
de interrupgoes. Aqui estd um progra- 
ma simples que emprega o contador pa- 
ra improvisar um rel6gio: 

10 POKE 23674,0; POKE 23673.0 
: POKE 23672,0 

20 BORDER 0: PAPER 0: INK 6: 
CLS 

30 DEF FN tt)=INT ({65536* 
PEEK 23674+256*PEEK 23673+ 
PEEK 23672)/50) 
40 LET t=FN t t) 
50 LET h-INT {t/ (60*60)) 
60 LET m-INT (t/50} 
70 LET B-t-C<h*60)«60)-Ca*60) 
80 LET tS="["+STRS h+":"+STRS 
Bi+-:-+STRS B+"V 
90 PRINT AT 1,15-{(LEN t$)/2) 
.„ -;tS;" ■ 
100 GOTO 100 

A linha 10 zera o contador de linhas 
de video, enquanto a linha 30 define a 
fungao t, que o IS. A linha 40 armazena 
o valor encontrado em t. A partir desse 
valor, as horas, minutos e segundos sao 
calculados. 



ENTRADA E SAIDA 



Os microcomputadores pertencentes 
k linha MSX possuem cerca de 32 
Kbytes de mem6ria ROM dedicados ao 
SO. Os primeiros 16385 bytes sao preen- 
chidos com rotinas de entrada e saida. 
O interpretador BASIC comega em 
16385 e termina em 32769. Existem ain- 
da 3202 bytes dedicados as variiveis do 
sistema, todos eles siluados no topo da 
memoria — 62333 a 65535. 

Um SO com essa extensao possui 
quase todas as rotinas que o usuirio po- 
de desejar. Muitas dessas rotinas tern si- 
do aproveitadas no videogame ^4 va/a/»- 
che. Contudo, como a maioria delas em- 
prega valores armazenados em registra- 
dores internos do Z-80 — o micropro- 
cessador do MSX — , poucas podem ser 
utilizadas diretamente por programas 
em BASIC. A solugao consiste em es- 
crever pequenas rotinas em codigo que 
modificam os valores dos registradores, 
de modo que o BASIC possa chamar a 
rotina desejada do SO. Um exemplo 
desse procedimento foi dado no artigo 
publicado a pagina 1141 de INPUT. 

De fato, e uma pena que o BASIC 
nao possa modificar os registradores di- 
retamente, sobretudo porque o SO do 
MSX dispoe de certos artificios proje- 
tados para facilitar a utilizagao de suas 
rotinas pelo usuario. Algumas porgoes 



da ROM e da RAM sao preenchidas 
com vetores que apontam para determi- 
nadas rotinas do SO, numa tentativa de 
simplificar seu use. 

As rotinas de entrada e safda — co- 
municagSo com a tela, com o gerador 
de som, com o teclado e o cassete, en- 
tre outros perifericos — estao espalha- 
das pelos primeiros 16K da ROM. Exis- 
te, porem, uma pequena regiao — que 
vai do endere?o 59 ao 348 — que con- 
tern vetores que apontam para as prin- 
cipals rotinas do BIOS. Assim, podemos 
ter acesso a essas rotinas de duas manei- 
ras; chamando seu endere^o verdadei- 
ro na memoria ROM ou usando seu ve- 
tor na tabela. As rotinas do interpreta- 
dor BASIC tambem sao apontadas por 
vetores de uma tabela localizada no to- 
pe da mem6ria — 64922 a 65535. 

As rotinas mats inleressantes neces- 
sitam de parametros colocados nos re- 
gistradores internos. Como muitas de- 
las )i foram apresentadas em outros ar- 
tigos publicados em INPUT, faremos 
uma pequena lista de rotinas (endere90S 
da tabeia de vetores) e enderegos de va- 
riaveis uteis. 

As rotinas podem ser usadas por 
meio dos comandos DEFUSR e USRO, 
e as varidveis, por meio de PEEK e 
POKE. 



GRAFICOS 



Eis algumas rotinas de interesse na 
utiliza^ao da tela; 

65 - Desabilita a gera^ao de ima- 
gens na tela. Pode ser util 
quando se pretende que o 
usu^rio nao acompanhe a ela- 
boracao de urn desenho com- 
plicado, vendo-o so depois de 
complete. 
68 - Reabilita a gera^ao de ima- 
gens. Faz com que o processo 
de desenho, que a rotina an- 
terior oculta, apare^a instan- 
taneamente na tela. 
98 - Muda as cores da tela de acor- 
do com o valor das varidveis 
do sistema. 

108 - Equivaie a SCREEN 0. Os en- 
derecos das tabelas e as cores 
podem ser modificados atra- 
vds das varidveis do sistema. 

Ill SCREEN 1. 

114 -SCREEN 2. 

117 -SCREEN 3. 

192 - Emite urn sinal sonoro. 

195 - CLS. 

207 - Mostra as teclas de fungao na 
parte inferior da tela, 

204 - Apaga as tecias de fungao da 
tela. 



Sao variiveis de especial interesse pa- 
ra a tela: 

62387 a 62426 - Cada par de bytes 
corresponde ao endere^o de 
uma BASE. Por exempio, 
62407 e 62408 contem o ende- 
rego de BASE(IO), tabela de 
nomes da tela grdfica. 

62431 a 62438 - Conteudo dos regis- 
tradores do VDP [Video Dis- 
play Processor). 

- Cor de frente. 

- Cor de fundo. 

- Cor da borda. 
e 64696 - Coordenada X. 
e 64698 - Coordenada Y. 



62441 
62442 
62443 
64695 
64697 



TECLADO E CASSETE 



Apresentamos a seguir aJgumas roti- 
nas de comunicagao com o teclado e o 
gravador cassete. A maioria dessas ro- 
tinas precisa de determinados parame- 
tros nos registradores. 

159 - Aguarda que uma tecta seja 
pressionada pelo usndrio e de- 
volve seu codigo ASCII ao re- 
gistrador A. Essa rotina pode 
substituir a iinha em BASIC 
que geralmente aparece depois 
que a mensagem "ARERTE 
QUALQUER TECLA" e im- 



pressa; 

100 IF INKEYS- 

225 



THEN 100 



Le o cabe^'alho de uma grava- 

?ao em fita cassete. 
Le um byte da fita. O registra- 
dor A guardard o byte lido. 
Encerra a leitura da fita. 
Grava um cabefalho na fita. 
Se A = 0, o cabe^alho sera 
curto; se A=: 1, sera longo. 
Grava um byte na fita. O rC' 
gistrador A devera conter o 
byte a ser gravado. 
240 - Encerra a gravaQao. 



228 

231 

234 



237 
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Muitos endere^os e rotinas litas dos 
microcomputadores das linhas Apple e 
TK-2000 foram apresentados no ar- 
tigo da pdgina 261. Nao voltaremos a 
tratar deles, nem de alguns truques jd 
mencionados, como, por exempio, o uso 
de CALL -151 para ativar o monitor. 

O SO do Apple e do TK-2000 divide- 
se em sistema monitor e rotina de ini- 
cializa^ao (Autostart ROM). As rotinas 
citadas aqui sao do monitor. 

O SO do Apple e do TK-2000 — co- 
mo o de todos os computadores que uti- 
[izam microprocessador 6502 — tern 



suas varidveis armazenadas nos primei- 
ros 256 bytes da ROM (pagina 0). Esses 
micros nao permitem a modifica^ao di- 
reta dos registradores do microproces- 
sador 6502 atraves do BASIC. Assim, 
as rotinas que requerem parametros de- 
vem ser usadas com pequenas rotinas em 
codigo para leitura e/ou modificacao 
desses registradores. 

O comando CALL serve para cha- 
mar nSo s6 essas rotinas mas, tambem, 
as que sao montadas em cddigo, na 
RAM. Os enderegos podem ser modifi- 
cados com POKE e lidos com PEEK. 



ROTINAS DO MONITOR 



-528 - Imprime na tela o caractere 
cujo c6digo esta no acumula- 
dor (registrador A). 
-384 - INVERSE. 
-380 - NORMAL 

-198 - Emite um sinal sonoro. No 
Apple tente tambem -1059. 
-741 - Imprime um cursor piscante 
e aguarda que se pressione 
uma tecta, colocando entao 
seu cddigo no acumulador. 
Tambem embaralha o gera- 
dor de nufneros aleatdrios. 
-864 - Provoca um atraso de acor- 
do com o valor do acumu- 
lador A. No Apple II a du- 
ragao do atraso e de (26 + 
27*A -I- 5*A* A)/2 microsse- 
gundos. No TK-2000 a demo- 
ra e maior. 

- 1 948 - Determina qual serd a cor do 
griftco de baixa resolugao de 
acordo com o conteudo do 
acumulador. 

-1953 - Adicionao valor 3 ao codigo 
da cor atual para graficos de 
baixa resolugao. 

-2048 - Desenha um ponto de baixa 
resolu^ao, O acumulador de- 
fine a coordenada venical. e 
o registro Y determina a 
coordenada horizontal, 

-2023 - Desenha uma Iinha horizon- 
tal em baixa resoiu^ao — 
coordenada vertical em A, 
coordenada horizontal inicial 
em Y e coordenada horizon- 
tal final no endere^o $2C. 

-2008 - Desenha uma Iinha vettical 
em baixa resotugao — coor- 
denada horizontal em Y, 
coordenada vertical inicial 
em A e coordenada vertical 
final no enderego S2D. 

-1998 - Apaga a tela de baixa resolu- 
gao. No micro Apple, preen- 
che a tpla com caracteres @ 
invertidos, se for chamada no 
modo texto. 



mimsffm 



-1994 - Igual k anterior, s6 que res- 
peita as quatro linhas de tex- 
to no rodap6 da tela. 

- 1 935 - Verifica a cor de uma posi^ao 
da tela de baixa resolu?ao, 
usando os mesmos registros 
que a rotina do enderego 
-2048. A cor do ponto retor- 
nard no acumuiador. 
-182 - Grava todos os registros do 
microprocessador 6502. Usa 
OS endere?os $45 a $49. 
-193 - Recupera os registros. Usa os 
endere^os $45 a $49. 



TELA DE ALTA RESOLUCAO 



Os cnderegos que controlara o tipo de 
tela no Apple foram muito usados nos 
programas de INPUT e nao serao repe- 
tidos. Existem, contudo, alguns outros 
endere?os interessantes para grdficos de 
alta resolucao. 

224/225 - Coordenada X do ultimo 
porno plotado. 

226 - Coordenada Y do ultimo pon- 
to plotado. 

230 - Indica a pagina em que o pon- 
to deve ser plotado. O valor 
32 corresponde k pdgina I , e 
64, k pagina 2. Note que o 
acesso a esse enderefo permi- 
te que se desenhe na pagina 2, 
enquamo se mostra a pagina 
1 e vice- versa. 

228 - Indica a cor do grafico. Seus 
valores estao na tabela apre- 
sentada a seguir. 



HCOLOR 


COR 


BYTE 228 





preto 1 





1 


verde 


42 


2 


violeta 


85 


3 


branco 1 


127 


4 


preto 2 


128 


5 


vermelho 


170 


6 


azul 


213 


7 


branco 2 


255 



¥ 



62450 - Limpa a tela (alta resolu^ao). 

62454 - Preenche a tela de alta reso- 
luQao com o byte 228. Al^m 
de permitir a sele^ao de co- 
res de fundo para seus dese- 
nhos, essa rotina produz di- 
versos padroes quando o 
byte 228 assume valores que 
nao correspondem ^s cores 
da tabela anterior. 



As rotjnas do SO sSo acessadas pelo 
comando EXEC, que tamb^m chama 



rotinas em c6digo montadas na RAM. 
Muitas vari^veis sao obtidas com 
PEEK. 



COMUNICACAO COM CASSETE 



Todas as rotinas destinadas ao uso 
em gravador cassete empregam duas ro- 



tinas principals, a saber: BLKIN — no 
enderego 42763 — , que faz a leitura de 
um bloco de 255 bytes na fita; e 
BLKOUT — endere?o 42996 — , que 
grava um bloco na fita. 

Tamb^m sao de utllidade para o pro- 
gramador BASIC os endere^os da pi- 
gina 1, que listamos a seguir: 




121 - Fornece o status da porta de 
entrada e saida do gravador 
cassete. Pode assumir os valo- 
res (porta fechada), 1 (aber- 
ta para entrada) e 2 (aberta pa- 
ra sai'da). Para evitar que er- 
ros de saida destruam seu pro- 
grama, verifique a porta utili- 




zando o comando PEEK an- 
tes de abrir um arquivo. 

144 - Empregado pelo sistema ope- 
raciona] para definir o compri- 
mento do cabe^alho. Se voce 
tern problemas com o volume 
do gravador, coloque um va- 
lor mais alto nesta posigao 
por meio do comando POKE. 

J49/150 - Estas posi?6es contSm o 
lapso de tempo que se segue a 
um comando MOTOR ON, 
POKE 149,0:POKE 150,1 re- 
sultar^ em lapso zero, util 
ao se usar AUDIO ON/OFF 
com controle do motor. 



PROCESSAMENTO DE TEXTOS 



Outra se^ao do sistema operacional 
que pode ser de interesse para o progra- 
mador BASIC 6 aquela que e?[ecuta os 
testes de entrada e saida. Ela inclui en- 
trada do teclado e saida para a tela e a 
impressora. 

Freqiientemente, a mensagem ' 'aper- 
te qualqucr tecia" surge na tela junto 
com um la?o do tipo: 



100 IF IMKEYS= 



THEN 100 



Esse linha pode ser substituida por 
outra bem mais curta: EXEC 44539. Se 
voce quiser um cursor piscante use 
EXEC 36038. 

Conv^m anotar ainda os seguintes 
enderefos dessa sefao; 

135 - Contem o c6digo ASCII da 
ultima tecla pressionada. 

338 e 345 - Colocando o vaJor 255 
nessas posi^oes, antes do IN- 
KEY$, obtem-se a auto-repe- 
ti^io das teclas. 
282 -t,a. trava de letras maiusculas. 
Voce pode for? ar as minuscu- 
las colocando um ali . O va- 
lor 2S5 forga as maiilsculas e 
qualquer outro valor desabi- 
lita o uso de < SHIFT >0. 

43304 - Contem a rotina que limpa 
a tela. 



COMUNICACAO COM A IMPRESSOflA 



Entre as varidveis relacionadas h im- 
pressora, sao de maior utilidade para o 
programador aquelas que se encontram 
nos seguintes enderecos: 

153 - Determina a dtstancJa entre 
itens separados por vi'rgulas. 
O nprmal i 16, 

155 - Para que a fun9ao P0S(-2) 
tenha um desempeaho satisfa- 
tirio, esse endere^o deve cen- 



ter a largura do papel utiliza- 
do (40, 80 ou 132). 

330 - Contem o niimero de caracte- 

res enviados pelo computador 
para assinalar um Tinal de li- 
nha (EOL), Normalmente, 
apenas um caractere e 
envjado. 

331 a 334 - ContSm os caracteres do 

EOL: CR(13), LF (10), 0. 0. 
Esses caracteres podem ser aJ- 
terados para corresponder a 
um certo tipo de impressora. 
328 - Contdm o indicador de ali- 
mentacao automatica de li- 
nha. Se seu valor for 0, o 
computador faz o papel avan- 
^ar automaticamente com o 
retorno do carro. Qualquer 
outro valor leva k impressio 
dos caracteres do EOL apos a 
do niimero de caracteres indi- 
cados por 155. 



GRARCOS 



O programador BASIC nao tem 
acesso ks rotinas do SO que dizem res- 
peito aos graficos, Mas existem alguns 
enderefos que, junto com os comandos 
PEEK e POKE, podem ser uteis. 

182 - PMODE; niimero do modo grifico. 
183/184 - Enderego final da tela. 
186/187 - Enderego inicial da tela. 
1 88 - Inicio da pagina 1 . 
200 - Coordenada X do cursor grifico. 
202 - Coordenada Y do cursor grafico. 



OUTRAS ROTINAS INTERESSANTES 



EXEC 43486 - Atualiza todos os joys- 
ticks; soluciona os problemas que 
possam ocorrer com o comando 
JOYSTK. 

EXEC 40999 - Equivale ao botao RESET. 

EXEC 41142 - Reinicializac^o total: 
equivale a desligar e ligar a miqui- 
na novamente. 

EXEC 46481 - Executa uma "coleta de 
lixo" controlada nas variiveis al- 
fanumericas, evitando as desagra- 
diveis pausas que ocorrem inespe- 
radamente nos programas que as 
incluem. A quant idade de espago 
string remanescente pode ser cal- 
culada com 

PEEK(35)*256+PEEKt25)-PEEKt33J« 

256-PEEK(34) 

O valor normal para o espa^o 
string i 200. A nao observancia 
desse limite pode causar erros do 
tipo OS {out ofstn'ng, que quer di- 
zer: fim do espa^o para string). 



i 



^"1^ ptmimxcxomm m 




Abra um canal de comunica^ao com o 
drive ou o cassete e mande seus 
valiQSOs dados para o arquivo. Saber 
manipular essa ferramenta ^ 
fundamental para cartas aplk:a^5es. 



Qualquer programa que manipule 
grande quantidade de informagao deve 
amiazend-ia da maneira apropriada. No 
artigo publicado k p^gina 1 28, tratamos 
do armazenamento de uma pequena lis- 
ta de telefones em linhas DATA. O pro- 
grama all apresentado permite ao usua- 
rio procurar e imprimir qualquer item 
da lista. Porem, para qualquer modifi- 
cagao na lista, e necessirio interromper 
a execu^ao do programa e editar as li- 
nhas DATA. Alem disso, os dados s6 
podem ser gravados junto com o pro- 
grama que OS manipula. 

Essa dependencia dos dados ao pro- 
grama muitas vezes e indesejivel. Para 
evita-la, convem guardar os dados em 
fita cassete ou disco flexivel. A recupe- 
ra<^o das informa^Ses i tao rapida 
quanto no caso das linhas DATA, mas 
a alterafio e a edi^ao de dados tomam- 
se extremamenie mais fdceis. Para 
efetua-las, o usuario nao precisa saber 
nada a respeito do programa. 

Come em muitos programas aplica- 
tivos listados em INPUT, os dados sao 
armazenados em arquivos, na fita ou 
disquete. O banco de dados, o orgamen- 
to dom^stico, a agenda eletronica e a 
planilha sac exemplos de programas que 
envolvem grande quantidade de infor- 
maijoes. Se observaimos suas listagens 
com atencao. poderemos identificar as 
linhas que tratam da gravat^ao e leitura 
dos dados. Elas ocupam uma por^ao 
minima do programa, se comparadas ^s 
demais secoes, encarregadas, entre ou- 
tras coisas, de reservar espafo na mem6- 
ria, estabelecer a comunica^ao com o 
usuirio e manipular os dados. 

Quando armazenamos os dados i 
pane, as possibilidades de utilizagao do 
programa aumentam bastante, esten- 
dendo-se k criai^ao e alterapao de vdrios 
arquivos difcrcntes, com quantidades 
djversas de registros e campos. 

Empregamos em nosso programa o 
metodo de armazenagem seqiiencial, cu- 
jo principio e muito simples. Como vo- 
ce verS, ele permite que os dados sejam 
convertidos a um formato que se adap- 
ta a diversos programas, e at^ mesmo a 
computadores diferentes, 

O arquivo seqiiencial caracteriza-se 

pela armazenagem dos dados em s^rie, 

idispostos um ap6s o outro e separados 



apenas por um byte. Toda a informa- 
qSo deve estar na memiria antes de ser 
transferida ao arquivo. 

O primeiro passo para a criagao de 
um arquivo seqiiencial consiste na aber- 
tura de um canal de comunica?ao com 
o dispositive que vai armazenar os da- 
dos — cassete ou drive. Isso 6 feito por 
intermddio do comando OPEN, numa 
sintaxc que varia conforme o tipo do mi- 
crocomputador, Para conhecer os co- 
mandos mais utilizados, volte ao artigo 
da p^gina 688. 

Aqui, explicamos em detalhe as tic- 
nicas envolvidas na cria^ao de arquivos, 
de modo que voce poder^ incorporMas 
facilmente a seus programas. 



CRIANDO UM AflQUIVO 



O programa a seguir mostra como 
criar uma versao mais sofisticada da lis- 
ta de telefones mencionada anlerior- 
mente. Ao utilizi-la, voce poderd mo- 
dificar, sem maiores dificuldades, as 
mensagens dos comandos INPUT e o 
formato das matrizes, para que aceitem 
outro tipo de informaeao, 

Os dados sao fornecidos nesta or- 
dem: nome, sobrenome e numero do te- 
lefone. Como niimeros de telefone po- 
dem center espa<;os, hffens e parenteses, 
convem dar-lhes a forma de cadeia de 
caracteres. Se voce quiser alterar o pro- 
grama para lidar com outros tipos de in- 
forma^ao, poderA usar tamb^m matri- 
zes numericas e alfanumericas. Um ar- 
quivo recebe dados em qualquer forma- 
to e em qualquer ordem. O importante 
i que a leitura se fa?a nessa mesma or- 
dem e que os dados sejam colocados no 
tipo adequado de varidvel. 

Embora seja piossivel armazenar in- 
formapoes diretamente no arquivo, & 
mais conveniente que coloquemos os da- 
dos em uma matriz e depois guardemos 
toda a matriz no arquivo. 

A primeira parte do programa tern 
um pequeno lago que possibilita a en- 
trada dos dados. Digite quantos nomes 
e niimeros quiser — o limite 6 a dimen- 
sao da matriz, especificada na linha 10. 
Modifique a dimensao, caso precise de 
um numero de itens superior a cinqiien- 
ta. Quando tiver entrado todos os da- 



dos, digite ENTER ou RETURN e o la- 
go de entrada ser^ interrompido. 

A segunda parte do programa — da 
linha 100 em diante — grava os dados 
no arquivo. Daremos explicafSes refe- 
rentes a seu funcionamento nas vdrias 
versoes do programa. 



10 DIM AS (SO. 15): DIM BStSO, 

15}: DIM T3[50,12): DIM N{1) 

20 LET N-0 

30 LET N-N+1 

40 INPUT "PBIMEiaO NOME "iASC 

m 

50 INPUT "SEGUNDO NOME ";B$(M 



) 



•NUMEfiO DO TELEFONI 



GOTO 30 
'SALVANDO DADO 



60 INPUT 

-jTSCN) 

70 IF Aa(N)<>" 

- AND N<50 THEN 

60 CLS : PRINT 

3 AGORA' 
100 SAVE "CONT" DATA N{) 
110 SAVE "P. NOMES" DATA ASt) 
120 SAVE -S. NOMES" DATA BSO 
130 SAVE -N.TELEF." DATA T$() 
140 PRINT 'DADOS GPAVADOS" 
150 STOP 

Para a grava^io, o Spectrum utiliza 
o comando SAVE seguido do nome do 
arquivo. Note que cada matriz e grava- 
da como um arquivo distinto, receben- 
do um nome especial. A instru^ao DA- 
TA seguida do nome da matriz deve vir 
depois do nome do arquivo. 



m 



10 DIM AS(50) ,B$(50) ,TS{50) 

30 N-N+1 

40 INPUT "PRIMEIRO NOME'; AS (N) 

50 INPUT "SEGUNDO N0ME';B${N) 

60 INPUT "TELEFONE" jTSCN) 

7 IF AStNJO-' AND M<50 THEN 3 



80 CLS: PRINT 'GBAVANDO OS DADOS 

100 OPEN "CASiARQ" FOR OUTPUT A 

S *1 

110 PRINT «1,N 

120 FOR L-1 TO N 

130 PRINT «1,A$(L) ,BS(L) ,Td(L) 

140 NEXT 

150 CLOSE #1 

160 PRINT "DADOS GRAVADOS' 

170 END 

Os dados entrados na primeira parte 
do programa sao colocados em tres va- 



9ftOGItAMAaOBAS!C 10^\ 



VANTAGENS DA UTILIZACAO 



E FECHAR ARQUIVOS 



DE ARQUIVOS 



ARQUfVOS EM FITAS 



GRAVAQAO E 



E DISQUETES 



COMO ABRIR 



RECUPERAQAO DE DADOS 

FIM DE ARQUIVO 

USO DOS DADOS 





Como gravar dados em fita cassete 
no Apple e no TK-2000? 

Para contorrar os problemas de ar- 
quivamento no Apple e no TK-2000, a 
melhor sotupao 6 comprar um dfive de 
discos flexfveis. Mas exJstem algumas 
atternattvas — nenhuma milagrosa, po- 
demos adiantar. 

Esses micros s<5 permitem a grava- 
Q§o de uma vari^vel indexada unidi- 
mensional e n§o montam na fita um ar- 
qtiivo propriamente dito. O leitor pode 
achar que isso j^ ^ suficiente para al- 
gumas apiicapQes. Por^m, a lentidao e 
o grande espapo que uma pequena va- 
riSvel ocupa na fita certamente logo 
vao desencorajar os mais afoitos. 

Em nossa opiniao, a saida mais con- 
veniente para quern nao pode adquirir 
um drive 6 colocar os dados em um 
buffer no alto da memdria, usando o 
comando POKE. Em seguida, basta en- 
trar no monitor de tinguagem de m^qui- 
na — com CALL -151 — e gravar o buf- 
fer por interm^dio do comando W do 
monitor. 



ri^veisindexadas: A$( ), B$( >eT$( ). 
Na linha 100, abrimos um arquivo para 
a grava<;ao de dado? em fita cassete por 
intermedio da instru(;ao OPEN "CAS; 
iiome do arquivo" FOR OUTPUT AS 
# tiumero do arquivo. 

A instru^ao PRINT #1 significa 
"imprima o proximo item no arquivo". 
Assim, a linha 1 10 grava o valor de N 
— total de numeros e nomes da lista — , 
para que seja usado posteriormente na 
leitura do arquivo. 

O !a?o entre as linhas 120 e 140 utili- 
za a mesma instru?ao PRINT # 1 para 
guardar o conteiido das tres variSveis in- 
dexadas. A instrupao CLOSE #1, por 
sua vez, fecha o arquivo. 



ai 



10 DIM A3C50) .BStSO) ,T$(50) 

20 DS - CHR9 (4) 

30 N - N + 1 

40 INPUT -PfilMEIRO HOME ";A3[N 

50 INPUT "SEGUNDO NOME ■sB9(M) 

60 INPUT -TELEFONE ":T3(N) 

70 IF A3(N) < > ■" AND N < 50 



T»EN 30 
aO HOME ; PRINT "GHAVANDO OS D 
ADOS" 

100 PRINT D$:"OPEN ARQUIVO" 
110 PRINT D3: "WRITE ARQUiyO" 
120 PRINT N 
130 FOR L - 1 TO N 
140 PRINT A3(L): PRINT BS(L): 
PRINT TSCL) 
150 NEXT I 

160 PRINT DS; "CLOSE ARQUIVO" 
170 PRINT "DADOS GRAVADOS" 
180 END 

Trataremos apenas da grava^ao em 
disquete, pois a armazenagem de arqui- 
vos em fita no Apple e no TK-2000 e 
muito preciria. Como voce deve se lem- 
brar, para controlar o drive sem sair do 
BASIC Applesoft utilizamos o caracte- 
re de controle CHR$(4), que foi colo- 
cado na varJavel D$ (linha 5). 

A primeira parte do programa, que 
cuida da entrada dos dados, coloca-os 
em tres variaveis indexadas: A$( ), 
B$( ) e TS( ). Um arquivo e aberto na 
linha 100 atrav^s do caractere de con- 
trole, seguido do comando OPEN e do 
nome do arquivo (entre aspas). 

O comando WRITE, na linha 110, 
permite a gravagao de dados no arqui- 
vo que foi aberto. Todos os comandos 
PRINT que aparecem em seguida escre- 
vem no arquivo e nao na tela. O coman- 
do CLOSE fecha o arquivo e devolve a 
fun^ao original ao PRINT, 



10 DIM A3(503 ,BS(50) .TS(50) 

30 N-N+1 

40 INPUT"PRIMEiaO HOME ';AS{N) 

SO INPUT'SEGUNDO NOME ";B$CN) 

60 INPUT"NUMERO DO TELEFONE ";T 

$CM) 

70 IF AS(N)<>"' AND N<50 THEN 3 



80 CLS; PRINT" SALVANDO DADOS AGO 

RA" 

Use esta se?ao para arquivos em fita 
cassete: 

100 OPEN -0". 1-1, "ARQUIVO" 

110 PRINT |-J,N 

120 FOR L-1 TO N 

130 PRINT «-l,A$(L) ,Bd(L) ,T$<L} 

140 NEXT 

150 CLOSE #-1 

160 PRINT"DADOS GRAVADOS" 

170 END 

Utilize esta se?ao para arquivos em 
disquete: 

100 OPEN -0", 11, "ARQUIVO* 

110 PRINT tl,N 

120 FOR L-1 TO M 

130 PRINT »1,A3(L) .BS(L) ,T3CL) 

140 NEXT 

150 CLOSE «1 



160 PRINT"DADOS GRAVAOOS" 
170 END 

A primeira se^ao do programa, que 
trata da entrada dos dados, i comum 
aos dois tipos de dispositive, ao contri- 
rio da segunda se(pao, incumbida de gra- 
var OS dados, 

Na versao para fita cassete, um ar- 
quivo 6 aberto pela instrugao OPEN 
"O" que estabelece uma linha de comu- 
nicaijao com o dispositivo de armazena- 
mento para a saida de dados. Ela ^ se- 
guida por um # - I. que diz ao compu- 
tador que se trata de gravador cassete, 
e pelo nome do arquivo entre aspas. 

O comando PRINT # - 1 significa 
"imprima o pr6ximo valor no arquivo". 
Assim, a linha 110 grava o valor de N 
— o numero de telefones da lista. Para 
processo de leitura, que descrevemos 
a seguir, e importante que esse valor en- 
cabece o arquivo. 

A linha 1 30 escreve cada um dos iiens 
no arquivo — observe que eles sao se- 
parados por meio de virgulas. Finalmen- 
te, o comando CLOSE # - I fecha o ar- 
quivo (linha 150). 

A cria^ao de arquivos em discos fle- 
xiveis e muito semelhante, empregando 
OS mesmos coraandos. A unica diferen- 
?a e o numero utilizado ap6s o sinal # . 
OPEN "O", #1, seguida do nome do 
arquivo entre aspas, abre um arquivo; 
PRINT # 1 guarda um item nele e CLO- 
SE # 1 trata de fecha-lo. 

Como voce pode notar, na linha 130 
OS itens estao separados por ponto e vir- 
gula. Embora se permita o uso de^vi'r- 
gulas, aquele e o modo mais economi- 
co de armazenar dados no disco. 

Os disquetes admitem a criagao de 
mais de um arquivo ao mesmo tempo, 
pois, ao contrario do gravador cassete, 
o drive e capaz de procurar a porgao 
adequada para ali gravar os dados. As- 
sim, podemos numerar os arquivos com 
#1, #2j #3 e assim por diante, en- 
quanto o cassete € sempre numerado 
com # - 1 — um PRINT # - 2 manda- 
ri o dado para a impressora. 



A LEITURA DO AftQUlVO 



O programa que recupera as infor- 
ma^oes gravadas no arquivo 6 exata- 
mente o inverse do programa anterior. 
Ele imprime os dados lidos na tela para 
que possamos conferi-los. 



2D0 CLEAR 
210 DIM N{1) 
N(J 



LOAD "CONT" DATA 



^00 PHOCHmACAOSASJC 



215 DIM AS(N(1).15]: DIM B$ (N C 

1) .15) : DIM T${N(1) ,12) 

220 LOAD 'P.N0ME3" DATA AS () 

230 LOAD 'S.NOMES' DATA B3 () 

240 LOAD -M.TELEF." DATA TSC) 

350 FOR L-1 TO NCI) 

260 PHINT A9(L) .B3(L) ,TSCL) 

270 MEXT I. 

Para utilizar esse programa, rebobi- 
ne a fita ate o comei;o do arquivo gra- 
vado pelo primeiro programa. Digite 
RUN 200 para recuperar os dados; nao 
rode o programa inteiro novamente. 

A linha 20O apaga os antigos valores 
das variaveis, para que s6 os obtidos no 
arquivo sejam impressos. A linha 210 di- 
mensiona uma nova varidvel N{ ) com 
um elememo. Ela serd usada para recu- 
perar vEilor de'N gravado anteriormen- 
te. As outras varidveis sao dimensiona- 
das de acordo com o valor de N( ). Co- 
nhecendo o numero exato de elementos 
do arquivo, nao tentaremos ler alem do 
seu final. 

O resto do programa e fdcil de enten- 
der: simplesmente substituimos os SA- 
VE do primeiro programa por LOAD. 
E precise fechar um arquivo aberto pa- 
ra gravapao, mas nao para leitura. 



PEN AHQUTVO' 

210 PRINT DSs'READ ABQUIVO" 

220 INPUT N: DIM A$ {N) , BS CN) ,T 

S(N) 

230 FOE L =■ 1 TO N 

240 INPUT A$(L) ; PRINT AS(L) 

250 INPUT B$(L); PHINT BSCL) 

260 INPUT TS(L): PRINT T$tL) 

270 NEXT L 

280 PRINT OS; "CLOSE ARQUIVO' 

A linha 200 ^ encarregada de apagar 
OS andgos valores das varjdveis; dessa 
maneira, o programa imprime somente 
OS valores que obtiver no arquivo. Este 
e aberto para leitura pela instru^ao 
OPEN seguida de READ. 

A linha 2 10 le a quantidade de nomes 
armazenada no arquivo — N — e utili- 
za esse valor para dimensionar as varia- 
veis. N tambem (em como funcSo con- 
trolar o laco de leitura do arquivo, pa- 
ra que ele seja recuperado atd o final. 
Note que os valores lidos sao colocados 
nas varidveis na mesma ordem em que 
foram gravados, separados pelo mesmo 
tipo de sinal — no caso da fita, a virgu- 
la. O arquivo deve ser fechado apos ser 
lido. 



fffi 




200 CLEAR 20 00:OPEN'CAS:AR0UIVO 

"FOR INPUT AS 41 

210 INPUTil.N:DIM A$ (N) , BS CN) ,T 

S(N) 

220 FOR L-1 TO N 

230 INPUT «1,AS(L) ,BS{L) ,T3(L} 

235 PRINT AS{L) ;BS(L) ;TStL) 

240 NEXT t, 

250 CLOSE «1 

Para usar esse programa, rebobine a 
fita ate o comedo do arquivo gravado 
pelo primeiro programa. Digite RUN 
200 para ler o arquivo; nao rode o pro- 
grama inteiro novamente. 

A linha 200 apaga as variaveis origi- 
nals; dessa maneira, o programa impri- 
me so aquilo que obtiver no arquivo, Es- 
te i aberto para leitura pela instru^ao 
OPEN "CAS:" FOR OUTPUT AS, se- 
guida do valor adequado. 

A linha 210 le a quantidade de noraes 
armazenada no arquivo — N — e utilt- 
za esse valor para dimensionar as varia- 
veis. N tamb^m controla o lago de lei- 
tura do arquivo, para que ele seja recu- 
perado at^ o final. Note que os valores 
lidos sao colocados nas varidveis na or- 
dem em que foram gravados, separados 
pelo mesmo tiipo de sinal — no caso da 
fita, a virgula. O arquivo deve ser fecha- 
do apos ser lido. 



200 D3 - CHBS (4): PRINT DS;"0 



Para fita cassete, use esta secSo: 



200 CLEAR 2000rOPEN"I" ,#-l,''ARQ 

UIVO" 

210 INPUTi-l,N:DIM AS (N) , B3 (N) , 

TSfN) 

220 FOB L-1 TO N 

230 INPUT |-l,AStL) .B$(L) ,TSCL) 

235 PRINT AS(L) ;BS(L) ;T5(L) 

240 NEXT L 

250 CLOSE i-1 

No caso de discos flexiveis, recorra 
a esta outra: 

200 CLEAR 2000: OPEN 'O", #l,"AflQ 

uiyo" 

210 iNPUT»l,N:DIM A3 (N) ,B$ (N) ,T 

S(H) 

220 FOR L-1 TO N 

230 INPUT #1,AS(LJ ,B$(L) ,TS(L) 

235 PRINT A3(L) ;B$(L) ;TS(L) 

240 NEXT L 

250 CLOSE tl 

Para executar essa parte do progra- 
ma, rebobine a fita ate o inicio do ar- 
quivo. Digite o comando RUN 200 pa- 
ra recuperar os dados; nao rode o pro- 
grama inteiro novamente. 

A linha 200 apaga os antigos valores 
das varidveis; dessa maneira, o progra- 
ma imprime apenas os valores que ob- 
tiver no arquivo. Este e aberto para lei- 
tura pela instrucao OPEN "X" seguida 
do valor adequado — # - 1 para fita e 
# 1 para disquete. 



A linha 210 le a quantidade de nomes 
armazenada no arquivo — N — e utili- 
za esse valor para dimensionar as varid- 
veis. N tamb^m controla o lago de lei- 
tura do arquivo, para que ele seja recu- 
perado ate o final. Note que bs valores 
lidos sao colocados nas variaveis na or- 
dem em que foram gravados, separados 
pelo mesmo tipo de sinal — no caso da 
fita, a virgula; no do disco, ponto e vir- 
gula. O arquivo deve ser fechado ap6s 
ser lido. 



am 



FIM OE ARQUIVO 



O ultimo programa usou a varidvel 
N para controlar a leitura do arquivo. 
Contudo, nera sempre i possivel saber 
de antemao quantos itens devem ser li- 
dos, Um modo de contornar o proble- 
ma d usar um marcador para sinalizar 
o fim do arquivo. O TRS-Color e o 
MSX colocam automat icamente um si- 
nal desse tipo — EOF — no final, sem- 
pre que uma instrucao CLOSE ^ en- 
contrada. 

Assim OS usudrios dos microcompu- 
tadores TRS-Color e MSX podem mo- 
dificar o programa anterior para que ele 
leia o arquivo desde o inicio, parando 
sempre que encontrar o sinal que indi- 
ca fim de arquivo — EOF, 

Listamos o programa a partir da li- 
nha 100 para que voce possa compard- 
lo a versao jd dada e escolher o metodo 
que considerar melhor. 

Modifique as linhas conforme a lis- 
tagem abaixo e, depois, tente gravar e 
ler arquivo novamente. 

m 

100 OPEN "CAS: ARQUIVO -FOR OUTPU 

T AS #1 

110 N=0 

120 N-N+1 

130 PRINT ll.AStN) ,BS tN) ,TS{N) 

140 IF A$(N)<>"'' AND N<50 THEN 

120 

150 CLOSE «1 

160 PRINT -DADOS GRAVADOS" 

170 END 

200 CLEAR 2000iDIM AS{50),B3t50 

) ,TSt50) :OPEN "CAS : ARQUIVO" FOR 

INPUT AS 11 
230 N-N+1: INPUT i I , AS (N) , BS tN) , 
TSCN) 

235 PRINT AS(N} ;B3(N) ;TS(N] 
240 IF EOF(1)-0 THEN 230 
250 CLOSE «1 

D 

Apague as linhas 210 e 220 e modifi- 
que as demais. Para a fita: 



i 



lOGRAMACAO BASIC M 



1-1 

'DADOS GRAUADOS" 



100 OPEN "0-,|-1,-A»OUIVO" 

110 N-0 

120 N-N+1 

130 PRINT »-l,AS(N) ,BSCN) ,T$(N) 

140 IF AS{N)<>"- AND N<50 THEN 

120 

150 CLOSE 

160 PHINT 

170 END 

200 CLEAR 2000iDIM A3{50),Bg{50 

) .TS(50) :OPEN "I" , |-1 , -AHQUIUO" 

230 N-N+1:INPUT #-1 , A$ CN) , BS (N) 

,T3(N) 

235 PRINT ASCN) iBS(N) :T3(N) 

240 IF EOF (-13-0 THEN 230 

250 CLOSE t-l 

Para o disqucte: 

100 OPEN -O'.ll.'ARQUIVO" 

110 N-0 

120 N-N+1 

130 PRINT |1.AS{N) ,B3(N) ,TS{N) 

140 IF AS(N)<>"' AND N<50 THEM 

120 

150 CLOSE «1 

160 PRINT -DADOS GBAVADOS" 

170 END 

200 CLEAR 200O;DlM AS{50),BSC50 

) ,T$(50) :OPEN "O" , ♦! , "ARQUIVO" 

230 N'M+1:INPUT 41 ,AS (N) ,B$ (N) , 

TS{N> 

235 PRINT A3(N) ;BSfN) :T3(N) 

240 IF EOF{1]-0 THEN 230 

250 CLOSE 11 

A linha 240 de ambos os programas 
verifica a ocorrencia de um sinal de fim 
de arquivo — EOF. 



OUTROS SINALIZADORES 



Para indicar o final do arquivo, os 
usuarios dos microcomputadores da li- 
nha Apple podem colocar ali um sinali- 
zador arbitrdrio. J^ no caso do Spec- 
trum, detectamos o fim do arquivo de 
outra maneira: ap6s entrar todos os da- 
dos no Ja?o inicial, digitamos uma se- 
nha arbitraria. £sta pode ser ZZZ, 
- 999, a paJavra FIM ou quaiquer ou- 
tra coisa que normalmente nao se inclui 
entre os dados de um arquivo. 

Altere as pr6ximas linhas e veja co- 
mo utilizar um sinalizador desse tipo. 
Ao digitar os dados do arquivo, entre 
a palavra FIM ap6s o ultimo numcro de 
telefone e ENTER ou RETURN ap6s as 
outras duas soUcita^des. 



m 



70 TF A3(N)<>"F1«" AND N<50 THE 
N 30 

140 IF ASCNJO'FIM- AND N<50 TH 
EN 120 

240 IF ASCNJO'FIM" AND N<50 TH 
4)1 EN 230 




a] 



10 DIM AS(50) .B$C50) ,TS(50) 

20 03 =■ CHRS C4> 

30 N = N + i 

40 INPUT "PBIMEIRO NOME ";A3(N 

) 

50 INPUT "SEGUNDO NOME "jBSCN} 

60 INPUT "TELEFONE "sTSCN) 

70 IF A$(N) < > "FIM' AND N < 

50 THEN 30 
80 HOME : PRINT "GRAVANDO OS D 
ADOS' 

100 PRINT D3;'0PEN ARQUIVO" 
110 N = 
120 N-N+1 

130 PRINT D3i "WRITE ARQUIVO" 
140 PRINT ASCN) : PRINT B3 (N) : 
PRINT TS(N) 
150 IF A3(N) < 
< 50 THEN 120 

160 PRINT DS; "CLOSE AflQUIUO" 
170 PRINT "DADOS GRAVADOS" 
180 END 

200 DS - CHS$ (4): PRINT DSi"© 
PEN ARQUIVO" 

210 PRINT DS; "READ ARQUIVO" 
220 DIM A$(50) .B3(50J .T3(50) 
225 L - 
230 L - L + 1 
240 INPUT A3(L): PRINT A3 (L) 



> -FIM- AND N 



250 INPUT BStL): PRINT B3{L) 
260 INPUT T5(L): PRINT TS IL] 
270 IF A3{L) < > -FIM- AND L 
< 50 THEN GOTO 230 
2B0 PRINT D5i "CLOSE AftQUIVO' 

Q 

70 IF A3(N)<>"F1M" AND N<50 THE 

N 30 

140 IF AS(N)0"FIM" AND N<50 TH 

EN 120 

240 IF A$(N)<>"FIM" AND N<50 TH 

EN 230 



USO DOS DADOS 



Armazcnados em um arquivo, ou se- 
ja, fora de um programa BASIC, os da- 
dos podem ser utilizados por vinos pro- 
gramas diferentes. Quaiquer uma das 
rotinas de ordenagao apresentadas nos 
artigos das pdginas 468 e 738, por exem- 
plo, servem para ordenar alfabeticamen- 
te nossa lista telefonJca, Uma vez feito 
isso, podemos localizar rapidamente de- 
terminado item da lista, por meio de 
uma busca biniria, come mostra o ar- 
tigo da pigina 930. 
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Tl DO VfDEO 



A IMAGEM ESTA CENTRADA? 

DISTORCOES JUNTO AS BORDAS 

DEFINICAO DA IMAGEM 



RAZAO DE ASPECTO 



DEFINICAO DAS CORES 



Se voce senttr a vista cansada apds 
lixar por algum tempo o video do micro, 
talvez seja a hora de providenciar 
um outro monitor. Use este programa 
pari testar a qualidade da imagem. 



At^ pouco tempo atras, o pre90 de 
um monitor de video colocava esse pe- 
riferico lotalmente fora do alcance da 
maioria dos proprietaries de micros, 
obrigando-os a utilizar aparelhos co- 
muns de TV como saida de video. 

Os televisores apresentam v^rios in- 
convenientes: a imagem ptsca e osdla 
continuamente de mode tmperceptivel, 
que provoca dores de cabeija e cansa- 
90 visual ap6s um certo tempo. Outro 
problema e causado pela baixa resolu- 
930 da tela, que resulta em perda de de- 
taihes e defini^ao da imagem em textos 
e graficos. 

Entreianto, o custo relativo dos mo- 
nitores profissionais de video tem cai- 
do bastante nos ultimos anos, tornan- 
do esse periferico cada vez mais acessi- 
vel. E, se vocS ainda nao tern um, vale 
a pena ir pensando em adquiri-lo, pois 
a qualidade da imagem e bem superior 
a de um televisor. 

No artigo da pdgina 851, descreve- 
mos as caracteristicas tecnicas que dife- 
rendam um televisor de um monitor e 
falamos dos aspectos que devem ser con- 
siderados na escoiha de um bom moni- 
tor. Nao hS duvida, porem, de que o 
melhor criterio para essa sele^ao ainda 
e o "Teste de Sao Tom6*' — ou seja, 
ver como Fica a imagem no video, quan- 
do conectamos ao nosso computador. 
Como hi problemas de compatibilida- 
de entre monitores e micros, e funda- 
mental que voce use o seu modelo na ho- 
ra desse teste. 

O programa listado neste artigo foi 
projetado para testar as caracteristicas 
do video em diferentes iinhas de compu- 
tadores. A versao para o Spectrum mos- 
tra um unico padrao visual na tela; ji 
asversoesparaolMSX, Apple, TK-2000 
e TRS-Color mostram duas ou tres te- 
las sucessivas, cada qua! projetada pa- 
ra testar um aspecto do funcionamento 
do video. 



Os padroes visuais variam de compu- 
tador para computador, mas contem ba- 
sicamente os elementos utilizados em tes- 
tes como OS que sao transmitidos em bo- 
ras mortas pelas emissoras de TV: cir- 
culos e Iinhas espagadas a curta distan- 
cia, para testar o poder de definigao de 
tela; padroes colocados nos cantos da te- 
la, para testar distor^Ses marginais da 
imagem, e barras ou faixas de todas as 
cores disponiveis. 

Ao rodar o programa de teste, obser- 
ve primeiro se a imagem esta bem cen- 
crada. Em atguns computadores, o ge- 
rador de video nSo deixa margem na te- 
la, e, se ela esiiver mal ajustada, havera 
uma perda de grificos e textos junto a 
borda. Muitos monitores e televisores 
dispoem de botoes giratorios de ajuste 
de centralizagao e expansao de imagem, 
tocalizados atr^s do aparelho.'Voce po- 
der^ usd-los para conseguir umresulta- 
do melhor. 

Verifique cm seguida se as Iinhas dos 
retangulos junto as bordas da imagem 
nao sofrem uma grande distor^ao (as Ii- 
nhas retas se transformam em arcos con- 
vexos; quanto menor o raio destes, maior 
a probabilidade de que monitor seja 
de baixa qualidade). 

Todas as Iinhas aparecem nitidamen- 
te separadas umas das outras? Se isso 
nao ocorrer, hi problemas de definifao 
na imagem, que podera prejudicar a 
legibilidade de textos. Em muitos mo- 
nitores e televisores, a resolugao e me- 
lhor no sentido horizontal do que no ver- 
tical, ou vice-versa, devido k maneira 
como OS pontos coloridos de fdsforo sao 
dispostos na tela. Monitores de boa qua- 
lidade t8m resoiu^ao igual em todas as 
direcoes. 

Os ci'rculos que o programa desenha 
nao sao perfeitos, tendendo a assumir 
uma forma ovalada? Este e um bom tes- 
te para uma das caracteristicas dos vi- 
deos de boa qualidade, a chamada ra- 
zao de aspecto: para obte-!a, divtdimos 
o diametro transversal do circulo pelo 
diametro vertical. Idealmente, i claro, 
o resuitado deveri ser 1. 

Verifique tamb^m se as Iinhas apare- 
cem tragadas com nitidez ou se as bor- 
das e cantos parecem borrados. Um pro- 
blema desse tipo pode prejudicar a legi- 
bilidade de um texto na tela. 



Se monitor ou TV for colorido, 
examine as cores das barras (ou das le- 
tras, no programa para o TRS-Color) na 
segunda parte do teste. Os cantos e bor- 
das das barras coloridas devem ser bem 
definidos, e a cor de uma barra nao de- 
ve extravasar para outra. Como a den- 
sidade, brilho e a saturafao das cores 
podem variar de video para video, ex- 
perimente mudar os controles do apa- 
relho, at^ obter a melhor combina^ao. 
Lembre-se de que diferentes ajustes de 
cor costumam ser necessarios. confor- 
me a aplicacaor texto puro, por exem- 
pio, requer pouca cor e brilho medio; 
um jogo exige muita cor e brilho. 

Os programas para o MSX e o TRS- 
Color permitem variar a cor de fundo na 
tela pressionando seguidamente a tecla 
< ENTER > , na iiltima parte do progra- 
ma. Para interrompe-lo, pressione 
< BREAK > ou < CTRL >< STOP >. 

No Apple e no TK-2(X)0, os caracte- 
res de texto nao podem ser coloridos. 
Assim, para testar a qualidade do video 
quanto a este aspecto, interrompa o pro- 
grama e liste-o na tela. Observe se as le- 
tras aparecem em branco puro e se nao 
hdnenhum efetto de "arco-iris" (letras 
multicoloridas e borradas). 

Se voce conhece um pouco de progra- 
magao grifica em BASIC, nao teri ne- 
nhuma dificuldade em modificar os pro- 
gramas aqui apresentados para tomi-ios 
mais completos ou airaentes. Procure 
alterar a combina^ao de cores de frente 
e de fundo, para verificar o efeito, gere 
mais uma tela de textos e caracteres gra- 
ficos etc. 



D 



10 PnODE 4 
20 FOR K-0 
TEP K+2 
^0 LINE CK 
16-J.191-K 
40 NEXT J, 
,50 FOR K-1 
(K.e5)-(K, 
32)-(141,K 
60 FOR K-1 
E(127,95), 
70 IF INKE 
60 PMODE I 
90 FOR J-0 

j/4a+i 



1:PCLS: SCREEN 1.1 
TO 1:F0R J-0 TO 15 S 

«16+J , K«l 6+J} - (255-K" 

*16-J} .PSET,B 

K 

00 TO 154 STEP 2: LINE 

105) ,PSET:LINEC113.K- 

32) ,PSETrNEXT 

TO 100 STEP 10:CIRCL 
K, 5: NEXT 
¥3-"" THEN 70 
,1:PCLS;SCREEN 1,0 

TO 191 STEP 48: COLOR 



i2s; 
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Padrdes de teste de video ulilizados em diferentes com put ad ores 



100 LINE(0.J)-(2S5,J+47) .PSET.B 

F : NEXT 

110 FOR J-0 TO 255 STEP 63: FOR 

K-0 TO 63 STEP 4:C0L0R J/63+1 

120 LINECK+J,0)-tK+J,191) .PSET 

130 NEXT K.J 

140 IF INKEYS-'"' THEN 140 

150 S-l-Si SCREEN 1,S:GOTO 140 



5 FOB p-0 TO 7: FOR i-0 TO 7 
: IF p-i THEN GOTO 200 

6 PAPER p: INK i: BOHDER 0: 
CLS 

10 FOR n-0 TO 12 STEP 2: PLOT 
n,n: DRAW 0,175-2*n: DRAW 255 
-2*n,0: DRAW , - (175-2*n) : 
DRAW - (Z5S-2*n) ,0: NEXT n 
20 FOR n-10 TO 20 STEP 2: 
CIRCLE INK i:12e,85,n: NEXT 
n 

30 FOR n=5 TO 7: PRINT INK i 
iAT n.8;" "iAT n+lO.Sr" " ; 
NEXT n 

40 PRINT AT 4.6;: FOB m-0 TO 
1: FOB n»0 TO 7: PRINT PAPER 



57 PRINT AT 19.4;: FOR n=0 TO 
2: FOR 10=0 TO 7 : PRINT 
BRIGHT 1: INK m; PAPER p;CHB$ 
(64+n*7+Bil ; : NEXT m: NEXT n 
60 FOB n"=0 TO 7: BORr^B n: 
PAUSE 50: NEXT n: PAUSE 50 
20 NEXT i ; NEXT p 



25 



:LK 



fffi 



LET YO - XO:LX - LX - 10 
- LY - 10 
30 HPLOT XO.yO TO XO + LX.YO T 
XO + LX,YO + LY TO XO,YO + LY 

TO XO,Y0 
40 NEXT XO 

FOR y - 60 TO 100 STEP 2 

HPLOT 110, Y TO 150, Y 

HPLOT 50, Y TO 70, Y: HPLOT 1 



NEXT n: NEXT m 



50 PRINT AT 18,9s; FOR in=0 TO 
Ir FOR n=0 TO 7: PRINT PAPER 

n;" -; : NEXT n: NEXT m 
55 PRINT AT 2.4; : FOB n-0 TO 
2: FOR Bi-0 TO 7: PRINT INK m 
; PAPER piCHHS (64+n*7+n) i : 
NEXT n: NEXT n 



10 S-S+1:C0L0H 15.S,S:SCBEEN 2 

15 CL=15:IF S=15 THEN CL=1 

20 FOR K-0 TO 1 : FOR J-0 TO 15 S 

TEP K+2 

30 LINE(K«16+J.K*16+J)-(255-K*l 

6-J.191-K*15-J) ,CL,B 

40 NEXT J.K 

50 FOR K=100 TO 154 3TEP3:L1NE{ 

K,e5)-(K,105) ,CL:NEXT 

55 FOR K-eS TO 135 STEP3:LINE(1 

40,K)-^(114,K) ,CL:NEXT 

60 FOR K-1 TO 100 STEP 10:CIRCL 

E(127,95) ,K,CL:NEXT 

70 IF INKEYS-"- THEN 70 

80 COLOR 15. S,S I SCREEN 2 

90 FOR J-0 TO 191 STEP 13 

100 LINEC0.J)-(255,J+11) .J/13+1 

.BF:NEXT 

110 IF INKEY$="" THEN 110 

130 GOTO 10 



95 TO 165 STEP 
,68 TO X,93 



HIE] 



10 HGH2 :LX = 279 :LY = 180 
20 FOR XO - TO 20 STEP 4 



50 
55 
57 

90, Y TO 210 

NEXT Y 

FOR X = 

HPLOT X 

NEXT X 

FOR R ■= 10 TO 60 STEP 10 
HPLOT 130 + R.BO 
FOR A - TO 6.4 STEP .1 
HPLOT TO 130 + R « COS (A 
> ,80 + R * SIN (A) 
95 NEXT A: NEXT R 
GET AS 
TEXT 1 HOME 
GR :C = 

FOR 1 - TO 36 STEP 3 
LET C =■ C + 1 : COLOR- C; U 
LIN 1.15 AT I 

135 ULIN 1.15 AT I + 1: VLIN 1 
,15 AT I + 2 

NEXT I:C - 

FOR J - 18 TO 36 STEP 2 

LET C - C + 1: COLOB- C 

HLIN 0,38 AT J: HLIN 0,38 

+ 1 

NEXT J 

GET AS 

TEXT : HOME : END 



60 
65 
70 
75 
85 
86 
87 
90 



100 
105 
110 
120 
130 



140 

145 

150 

155 

AT J 

160 

190 

200 



T PftOGMMACAOBASlC W1j\ 



CONTROL 





DAD 




UMA ROTINA BASICA 



TESTANDO A ROTINA 



OUTRAS TECLAS DE RETORNO 

ENTRADAS SECRETAS 

ROTINA DEENTRADANUMERICA 



"Envenene" seus programas de entrada 
de dados com uma retina de 
grande versatilidade. Ela substitui 
com vantagem o comando INPUT, 
superando virias de suas Simita^cies. 



DDrh''^ 



O comando INPUT satis faz a maio- 
ria das necessidades de progrania9ao de 
entrada de dados. Em certas situagoes, 
porem, a utiUza^ao desse comando apre- 
senta alguns serios irjconvenientes. En- 
tre eles, podemos citar: 

- toda vez que o programa executa um 
comando INPUT, o cursor muda de li- 
nha na tela quando o usu^rio pressiona 
a tecta < ENTER >; 

- um ponto de interrogagao e sempre co- 
locado na tela (nos micros pertencentes 
as linhas TRS-80, TRS-Color e MSX), 
ou for^a a entrada na liitiraa linha (ca- 
so dos micros da linha Sinclair: ZX-81 
e Spectrum); 

- todos OS caracteres digitados aparecem 
na tela: 6 impossivel oculti-los (como se 
faz, por exemplo, na entrada de uma se- 
nha secreta); 

-e necessdrio pressionar < ENTER > 
para terminal a entrada; 

- nSo existe nenhum controle sobre os 
caracteres que estao sendo digitados. I^a 
linha TRS. por exempio, se pressionar- 
mos a tecla de alimentagao de linha (re- 
presentada peta flecha para baixo), pre- 
judtcaiemos a formatagao de uma tela 
de entrada. 

E possivel contoraar todos os proble- 
mas mencionados recorrendo a uma re- 
tina especial de entrada, que substitui o 
comando INPUT. 

Neste artigo, ensinaremos como de- 
senvolver essa rotina usando a fungao 
INKEYS, disponivel no BASIC dos mi- 
cros pertencentes ^ linhas Sinclair, TRS 
e MSX, ou o comando GET. nos micros 
das Unhas Apple e TK-2000. 



UMA ROTINA SIMPLES 



IniciaJmente, vamos programar a ro- 
tina de entrada de dados da forma mais 
simples possivel, para que voce possa 
entende-la sem dificuldade: 



1000 LET SS'"" 

1010 LET CS=INKEYS 

1020 IF CS-'" THEN GOTO 1010 

1022 LET C=ASC(CS) 

1025 IF 0-13 THEN RETURN 

1030 LET S3-SS+CS 

1040 PRINT CSi 

1060 GOTO 1010 



Modifique as seguintes linhas, para 
o micro ZX-8 1 : 

1022 LET C-CODE C$ 

1025 IF C=11S THEN RETURN 



[am 



Suprima a linha 1020 e substitua a li- 
nha 1010, para o programa funcionar no 
Apple e no TK-2000: 

1010 GET C$ 

Teste a rotina, acrescentando a este 
pequeno programa: 

10 PRINT 

90 PRINT "ENTRE: "; 

100 GOSUB 1000 

110 PRINT 

120 PRINT S$ 

130 GOTO 10 



DD 



Para cvitar problemas de "estouro" 
da irea alfanumerica, acrescente esta h- 
nha para o TRS-80 e TRS-Color: 

5 CLEAR 1000 



FUNCIONAMENTO DA ROTINA 



A linha 1000 inicializa a cadeia de sai- 
da, S$, que conterd tudo o que for digi- 
tado. As linhas 1010 e 1020 verificam se 
algunaa tecla foi pressionada. Se a res- 
posta for negativa. o programa continua 
esperando. Caso contr^o, o programa 
prossegue para a linha 1030, que testa 
se a tecla pressionada foi < ENTER > 
ou < RETURN > , que assinalam o fim 
da entrada de dados. Se foi outra tecla 
quatquer, ela i concatenada ^ cadeia de 



saida, na linha 1030, e impressa na li- 
nha 1040. Finalmente, o programa re- 
toma k linha lOlO, para aguardar a pr5- 
xima tecla. 



UMITE PARA A ENTRADA 



Ao retornar da rotina, o cursor 
continua na mesma linha de entrada. A 
linha 100 forga sua mudanpa para a li- 
nha seguinte, mas pode ser reiirada, se 
necessdrio — por exemplo, se vocfi esti- 
ver escrevendo um programa de forma- 
taipao de tela de entrada, com virios 
campos da mesma linha. 

O programa principal pode ser mo- 
di ficado de modo a coiocar o cursor 
num ponto determinado da tela, antes 
de chamar a sub-rotina da linha 1000. 
Acrescente as seguintes linhas para ve- 
rificar o efeito obtido: 




APLICAQOES para a ROTINA 

A rotina apresentada neste artigo tem 
variadas aplicapoes. Usando-a criativa- 
mente, vocS poderd trabalhaf com diver- 
sas f unijoes impossi'veis de se obter com 
o BASIC. Essa rotina equivale, de fato, a 
um poderoso comando LINE INPUT que 
alguns interpretadores possuem. 

Em programas educativos e dejogos, 
voc€ pode tncluir uma fun^io de atraso 
miximo de tempo dentro da rotina de en- 
trada — Ou seja, a cada repetigao do la- 
go de varredura (apenas para as vers5es 
com o comando INKEY$), uma vari^el 
T de tempo pode ser incrementada, Ao 
sair da rotina, o programa tem acesso ao 
T total, informando ao usuSrio o tempo 
que levou para entrar os dados. 

Outra aplicapio interessante consJs- 
te em sair automaticamente da rotina 
quando um tempo mSximo estipulado 
para a resposta foi ultrapassado — o 
que € ultil em Jogos de rapidez de ra> 
ciocrnio, por exemplo. 



80 PRINT AT 10.10; 
80 PRINT € 128.'"; 

m 

BO LOCATE 10,10 



HIE] 

80 HTAB lOrVTAB 10 



APIRFEiqOAMENTOS 



Como est^, a rotina oferece poucos 
recursos e nao apresenta vantagens de 
ordem significativa em relafao ao co- 
mando INPUT. Mas existem virias ma- 
neiras de aperfeicoci-la. Podemos, por 
exemplo, estabelecer um limite mdximo 
para o niimero de caracteres que devem 
ser digitados. que nos permitird entrar 
dados seiti a necessidade de pressionar 
a tecla < ENTER >. 

Acrescente esta linha h sub-rotina: 

1050 IF LENCS3)-MX THEN RETURN 

A variivel MX, que indica o tama- 
nho maximo do campo, deve ser espe- 
cificada antes de se chamaf a rotina. Pa- 
ra testa-la, acrescente estas linhas ao 
programa principal: 

20 PRINT "TAMANHO DO CAMPO ": 
30 IKPUT MX 

Podemos ainda utilizar uma outra te- 
cla — como < SCAPE > — para con- 
cluir a entrada de dados. 

Substitua a iinha 1025 por: 



r^^ajcs 



1025 IF C-TX THEN RETURN 

Note que TX deve ser especificada 
pelo programa que chama a sub-rotina. 

Acrescente estas linhas, para testar a 
nova opgao: 

40 PRINT "CODIGO DE TERMING " ; 
50 INPUT TX 

Uma rotina de entrada de dados tam- 
b^m nao estaria completa se nSo ofere- 
cesse ao usuario a possibilidade de cor- 
rigir erros, usando a tecla < BACKSPA- 
CE > ou <-. Adicione ao programa as 
seguintes linhas: 



1026 IF C-J AND LEN(S3)>0 THEN 

1070 

1070 LET SS-LEFTSCS5,LEN(S3)-13 

1080 GOTO 1040 



1026 IF C=8 AND LEN[SS,>0 THEN 

1070 

1070 LET SS-SSCTO LEN(SS)-l) 

1030 GOTO 1040 



1026 IF C=114 AND LEN(SS)>0 
THEN 1070 

1070 LET S3=SSIT0 LENtSS)-l) 
1080 GOTO 1040 

A linha 1026 verifica se a variavel de 
saida ja tern no mfnimo um caractere e se 
a tecla decorre^ao foi pressionada{c6di- 
go ASCII 8; em se tratando do ZX-81, de- 
ve ser pressionada a tecla < -, cujo c6di- 
go e 114). 

Em caso positivo, a rotina desvia pa- 
ra a linha 1070. que extrai o caractere 
apagado e vai para a linha 1040. Esta 
faz retornar o cursor, imprimindo-a so- 
bre a posj^ao anterior. 



ENTRADAS SECRETAS 



Se quiser que os caracteres digitados 
nao apare^am na tela — para a entrada 
de uma senha secreta, por exemplo — , 
substitua a linha 1040 por: 

55DEif>^[Z][^ 

1040 IF SX=1 THEN PRINT CS: 

A variavel SX indica se o caractere 
digitadodeve ser mostrado (SX= I) ou 
nSo (SX < > 1), Para testar essa modi- 
ficacao, acrescente as proxiraas linhas 
ao programa principal: 

60 PRINT 'ENTRADA INVISIVEL 
(SIM=0) ": 
70 INPUT SX 



ENTRADAS NUMERICAS 



Podemos tornar nossa rotina de en- 
trada ainda mais versAtil. Uma op<;ao in- 
teressante consiste em utilizar a chama- 
da censura de entrada, por intermedio 
da qual fazemos com que a rotina igno- 
re automaticamente toda tecla que nao 
esteja incluida dentro de um determina- 
do conjunto de entrada. Essa alternati- 
va nos permite estabelecer que todas as 
teclas sejam maiiisculas, ou que nao o- 




que faz a instrupio LINE (NPUT7 

Esta resposta 6 dirigida aos usuSrios 
de computadores TRS-80 (com BASIC 
nfvel II), ZX'81, Sinclair, Apple e TK-2000, 
BASIC padrao de suas mSquinas nao 
dispoe da instrupao LINE INPUT, mas a 
sub-rotina apresentada neste artigo po- 
de substituf-la muito bem. 

Como nome sugere, a instrutjao 
LINE INPUT permite a entrada de'uma 
linha de texto pelo teclado. Essa linha 
6 armazenada em uma variSvel literal 
ou stringt nomeada pela instrugao. Por 
exemploi 

LINE INPUT X8 

Nao podemos colocac outras vari^- 
veis para entrada pela mesma instrugao. 

Ao contr^rio da instrupao INPUT, LI- 
NE INPUT nao imprime na tela o ponto 
de interrogaQao — sinal de prontidao 
para o usuSrio — , o que d^ uma maior 
liberdade de programapao. 

LINE INPUT aceita uma linha de 
texto contendo virgulas, pontos e v(f- 
gulas e outras pontua?;oes - que nos 
obrigariam ao uso de aspas, para deli- 
mitar o string de entrada, caso utiltzSs- 
semos uma instrupao INPUT. Assim. 6 
ideal para a entrada em processamen- 
to de texto. 



corram certos caracteres, como virgulas, 
ou, tambem, que a entrada seja apenas 
numerica. 

O procedimento e, na verdade, bas- 
tante simples. Para obter uma rotina de 
entrada numerica, por exemplo, basta 
que acrescentemos: 

1027 IF NOT tC>-43 AND C<-46} 
AND NOT (0-4B AND C<=57) THEN 
GOTO 1020 



1027 IF C021 AND C<>22 AND 
C026 AND C< >27 AND NOT 10-26 
AND C<-37) THEN GOTO 1020 

Essa linha verifica se o caractere en- 
trado esti entre e 9 ou se e um sinal 
de mais, de menos, virgula ou ponto. Se 
nao for um desses, retorna para a linha 
1020, de espera. 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



APLICAgOES 

Voc§ quer saber o que o destino Ihe reserva? Consults os 
astros... ou melhor, o programa de hordscopo de INPUT. 

c6digo de maquina 

Avalanche est^ completo. Para que o jogo comece, falta 
apenas a rotina final, que comanda toda a agio. 

PROGRAMAQAO DE JOGOS 

Voc§ 6 capaz de pintar uma parede sem deixar cair tinta no 
carpete? Teste sua habilidade no jogo O Pintor Aloprado. 

PROGRAMApAO BASIC 

Conhepa algumas rotinas capazes de simplificar 
a manipulapao de datas em BASIC. 




II 



